home *** CD-ROM | disk | FTP | other *** search
/ Aminet 33 / Aminet 33 - October 1999.iso / Aminet / dev / cross / ava-0.2.5.lha / ava-0.2.5 / examples / avrskipbug.s next >
Encoding:
Text File  |  1999-03-23  |  338 b   |  27 lines
  1. /*
  2.     avrskipbug.s
  3.     
  4.     Bug Test: skip instruction followed by the two-word instruction
  5.     Uros Platise (c) 1999
  6. */
  7.  
  8. #arch AT90S8515
  9. #include "avr.inc"
  10.  
  11.     seg flash.code
  12.     
  13.     lds    r2,last_val
  14.     sbic    PIND,2
  15.     lds    r2,init_val
  16.     inc    r2
  17.     sts    last_val,r2
  18.     lds    r3, init_val
  19.     cpse    r2,r3
  20.     sts    last_val,r3
  21.     
  22.  
  23.     seg eram.data
  24.     
  25. init_val:    ds.b    1
  26. last_val:    ds.b    1
  27.